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MODULE DIRGET (¢ 


IDENT DENT VAGE (Bt! $334) 
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BEGIN 
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SRR RRRARRERAAAEAARAAARAAAAARERER EERE A AERA EAA AE AERA AERERAERERAEERERAEREEE 
'@ & 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. « 
is ALL RIGHTS RESERVED. * 
4 * 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORD ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF RAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. 2 
: x 
iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
if AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. « 
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FACILITY: FI1ACP Structure Level 1 

i ABSTRACT: 


This routine gets a directory record from the directory being 
eoehacgree upon. 
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STARLET operating system, including privileged system services 
and internal exec routines. 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 26-Dec-1976 18:48 
i MODIFIED BY: 


A0100 ACG0001 Andrew C. Goldstein l0sdct~ 1978 20:01 
Previous revision history moved to F11A.REV 
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LIBRARY ‘SYSSLIBRARY:LIB.L32'; 


DARE, i$$e0-]964 00:58:55 YAN LT BLLeEe RE Ue R742, ey gap POO A? 


. = 0058 1 REQUIRE ‘SRC$:FCPDEF.B32'; 
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GLOBAL ROUTINE DIRGET (RECNUMBER, MULTI) = 
oe 
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| FUNCTIONAL DESCRIPTION: 


This routine gets a directory record from the directory being 
operated upon. 


i CALLING SEQUENCE: 
i DIRGET (ARG1, ARG2) 


! INPUT PARAMETERS: 
: : record number of pt aa entry to get 
ARG2: 0 to read just 1 

1 to read multiple blocks 


1 

' 

' 

' 
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1 
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‘ 

i 

! IMPLICIT my: S$: 

: DIR_FCB: address of FCB for directory 
DIR-WINDOW: address of window for directory 
' 
1 
4 
t 
1 
1 
{ 
i] 
] 
' 
i] 
t 
i] 
‘ 


i QUTPUT PARAMETERS: 
i NONE 

i IMPLICIT OUTPUTS: 
i NONE 


i ROUTINE VALUE: 
address of resore in buffer or 
0 if end of file 


i SIDE EFFECTS: 
} directory blocks read into memory 


BEGIN 
LOCAL 
VBN, ! VBN of directory to read 
LBN, ' LBN of directory block 
COUNT ' number of blocks to read 
ADDRESS; ! buffer address of record 
EXTERNAL 
DIR_ ! VBN of current directory block 
DIR-BUFFER : REF BBLOCK, address of current 4 directory block 
* ee or director 
DIR_WINDOW : REF BBLOCK; ! window for ent Mg file 
EXTERNAL ROUTINE 
MAP_VBN ' map VBN to LBN 
REAB_BLOCK; i read a block from the disk 


‘ Comey te the VBN of the directory block containing the desired record. 
! If the VBN is the same as the last one read, skip the read. 


ar 
~w 


REIDIRGET. B32; (79 


an 


DIRT 1$-sep-1964 00:58:55 vaNcdT Blies-32 4.0742, Page 4 


: Check it against the directory end of file recorded in the FCB. 


ts 
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1) / (512/16) + 1; ! 512 byte blocks, 16 byte records 


BEGIN 
DIR_VBN = 0; 
If .VBN GTRU .DIR_FCBCFCBSL_EFBLK] THEN RETURN 0; ! no record if beyond end 
ay Ae A LON. If the directory is contiguous, use the FCB; if not, 
ast the ma 


pper with the window. Also, if the directory is cont quo us 
lti-block reads are enabled, compute the number of blocks fo be read. 


d mu 
OUNT = 1; 
‘ DIR_FCBCFCBSL_STLBN] NEQ 0 ! non-zero start LBN means contiguous 


THEN COUNT = .DIR_FCBCFCBSL_EFBLK] - .VBN + 1; 
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END 
40 SE 
41 BEGIN 
tg LBN = MAP_V (.VBN, .DIR WINDOW) ; 
4 IF .LBN EOL -1 THEN RETURN 0; ! EOF if map fails 
te END; 
$8 Read the block and point to the record within it. 
48 ; 
49 DIR_BUFFER = READ_BLOCK (.LBN, .COUNT, DIRECTORY_TYPE); 
20 DIR_VBN = .VBN; 
2) END; 
§ ADDRESS = .DIR_BUFFER + (.RECNUMBER-1)*16 - (.VBN-1)*512; 
: RETURN .ADDRESS; 
56 END; ! end of routine DIRGET 
-TITLE DIRGET 
-IDENT \v04-000\ 
-EXTRN DIR_VBN, DIR_BUFFER 
-EXTRN DIR_FCB, DIR- WINDOW 
-EXTRN MAP_VBN, READ_BLOCK 
-PSECT SCODES,NOWRT,2 
003¢ 00000 - ENTRY pincer. Say e R2,R3,R4,R5 ; 0373 
55 0000G CF 9 $ MOV 3 
38 04 AC a. ¢ SUBL eae RG 3; 0433 
: F 01 a9 § 6 ROVAB re, 
3g 5 oi 14 CMPL VON. eine VEN > 0434 


; Routine Size: 


Name 
SCODES 


3 13 
5 00006 °F 5 
x i ae 
53 iD 
30 “ ? 
51 52 30 48 3 
2 08 A 
50 3¢ i$ 5 c3 
5 01 =A . 
17 (1 
0000G CF OD 
dD 
00006 i 3 06 
FFFFFFFF F Y 
7 13 
2 oD 
A 6B 
0000G CF f 
0000G CF 3 D 
” i 00006 oF 
52 ; 93 . 
5 0200 28 SE 
04 
50 BS 
133 bytes, Routine Base: S$CODE$S + 0000 


PSECT SUMMARY 
Bytes 
133 NOVEC,NOWRT, 


Library Statistics 


RD , 
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16- Sep-1 VAX-11 Bliss-32 V4.0-74 
1 g-898) 3b 99: 38: $ DI SKSVMERASTER SEE Tin. sR 
17 BEQL 
19 CLRL 
1 MOVL ste FEB 
CMPL y N; 6 tros 
BGTRU 
MOVL COUNT 
TSTL 4gtR 
C BEQL i 
ADDLS 48(RO), VBN, R1 
DECL 
BLBC_ MULT 
SUBL3 VBN sboRo» RO 
MOVAB 1(R6), COUNT 
4 BRB 
44 1$: PUSHL DIR _WINDOW 
48 SHL 
4A CALLS #2, N MAP VBN 
GF MOVL RO, LBN 
38 CMPL  LBN, #1 
005 BEQL 46 4$ 
0058 2$: PUSHL #2 
30 PUSHR #*M<R1,R 
F CALLS #3, READ, BLOCK 
064 MOVL RO. DIR_BUFFER 
0069 MOVL =‘ VBN, OTR VBN 
3 3$: ASHL R 0 
00 ADDL2 DIR_B FFER, RO 
007 ASHL #9,7R2, R2 
0079 SUBL2 R2. R 
007¢ MOVAB 512(RO), ADDRESS 
0081 RET 
0082 4$: CLRL = RO 
0084 RET 
Attributes 
EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


DIS 
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tz 


Vbe=600 1ecge ob-138¢ 99:38:35 SNScbiwGhaSfenccy tiksseeaoincer.e321°% (28 


Pe ne ei See i oe re = Syabols ococce-- Pages scesetng 
; File Total Loaded Percent Mapped 
: -8255S$DUA28: CSYSLIBILIB.L32;1 18619 3 0 1000 00:02.0 
; COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:DIRGET/OBJ=OBJ$:DIRGET MSRC$:DIRGET/UPDATE=(ENHS$:DIRGET) 
g Size A 133 code + 0 data bytes 
un Time: 0:06.7 


: gor Time: :20.7 
3 Lines/CPU Min: 4220 
3 ponenee/\Pu-Atas 10819 
: eet | Used: 82 pages 
; Compilation Complete 
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